100 REM ********************
110 REM *  HUA PHUOC CAN   *
120 REM * ALTE JOSEFSTR.15 *
130 REM *   4450 LINGEN    *
140 REM *  TEL.0591/74567  *
150 REM *------------------*
160 REM * BASIC-LINE MAKER *
170 REM *     17.10.86     *
180 REM ********************
190 DIMD(80):B%=2049:POKE53280,0:POKE53281,0
200 FORI=0TO7:READQ:POKE704+I,Q:NEXT
210 INPUT"[147][158]ZEILENNUMMER:";ZE
220 INPUT"KOMMENTAR:";K$
230 INPUT"ANFANGSADRESSE:";AN
240 INPUT"ENDADRESSE+1  :";EN
250 INPUT"STARTADRESSE  :";SA
260 PRINT" FEHLERFREI ? "
270 GETA$:IFA$=""GOTO270
280 IFA$<>"J"GOTO210
290 :
300 REM === BASIC-ZEILE 'BAZ'===
310 K$=STR$(B%+14+LEN(K$))+":"+K$
320 FORI=1TOLEN(K$):D(I+4)=ASC(MID$(K$,I,1)):NEXT:I0=I
330 H=LEN(K$)+B%+6
340 D(1)=INT(H/256):D(0)=H-D(1)*256
350 D(3)=INT(ZE/256):D(2)=ZE-D(3)*256
360 D(4)=158
370 FORI=B%TOB%+I0+6:POKEI,D(I-B%):NEXT
380 :
390 REM === COPY-ROUTINE 'COR'===
400 REM === 'BAZ'+'COR'       ===
410 FORII=ITOI+29:READQ:POKEII,Q:NEXT
420 PL=II+EN-AN
430 POKEI+3,INT(II/256):POKEI+1,II-PEEK(I+3)*256
440 POKEI+11,INT(PL/256):POKEI+9,PL-PEEK(I+11)*256
450 POKEI+19,INT(EN/256):POKEI+17,EN-PEEK(I+19)*256
460 POKEI+29,INT(SA/256):POKEI+28,SA-PEEK(I+29)*256
470 :
480 REM === 'BAZ'+'COR'+'MCP' ===
490 POKE781,INT(AN/256):POKE780,AN-PEEK(781)*256
500 POKE91,PEEK(I+19):POKE90,PEEK(I+17)
510 POKE89,PEEK(I+11):POKE88,PEEK(I+9)
520 REM === BASIC-ENDADRESSE ===
530 POKE46,PEEK(89):POKE45,PEEK(88)
540 SYS704
550 DATA133,95,134,96,32,191,163,
560 DATA169,255,160,255,133,95,132,96,169,255,160,255,133,90,132,91,169,255
570 DATA160,255,133,88,132,89,32,191,163,76,,